home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / utility / pocketd.zip / PSL_UNPK.BAT < prev    next >
DOS Batch File  |  1992-05-23  |  706b  |  23 lines
  1. echo off
  2. echo PsL_Unpack: Unpack Psl self-uncompressing files each into its own subdirectory
  3. echo usage: PSL_UNPK d1 d2
  4. echo where 'd1' is source drive and 'd2' is the destination e.g. PSL_UNPK A: B:
  5. if "%1"=="/?" goto exit
  6. if "%2"=="" goto exit
  7. %2
  8. D    /Yny/ /"////@tTransfer Drive label from %1 to %2 (y@/n) ?"
  9. if errorlevel 2 D %1/A[V][label $f]Rv
  10. D    %1/- *@.* /ccu
  11. d /Yny/ /"////@tRe-Compress unpacked executable files using PKLITE (y@/n) ?"
  12. if errorlevel 2 goto pk
  13. D    %1*@.* [MD $n// CD $n// echo y $!$w// CD ..]R
  14. goto exit
  15. :pk
  16. D    . :PATH + PKLITE.*/En@
  17. if errorlevel 1 goto ok
  18. echo Cannot find PKLITE!
  19. goto exit
  20. :ok
  21. D    %1*@.* [MD $n// CD $n// echo y $!$w// PKLITE *.*// CD ..]R
  22. :exit
  23.